home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 25 / 025.d81 / spider trap (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  177 lines
  1. 50 lv=5:f=0
  2. 100 gosub 1000
  3. 104 gosub 1050
  4. 110 print"[147]"
  5. 112 print"spider                      [158]score";f
  6. 114 print"trap                        [158]lives";lv
  7. 116 for t=0to1:print"[159]******************    ******************";:next
  8. 118 fort=0to16:print"**                                    **";:next
  9. 120 print"******************    ******************";
  10. 122 print"****************************************";
  11. 130 for t=0to17:x=680*rnd(5):poke1224+x,42:next
  12. 135 poke1762,32:poke1763,32:poke1764,32:poke1765,32
  13. 140 poke 1802,32:poke1803,32:poke1804,32:poke1805,32
  14. 142 poke1842,32:poke1843,32:poke1844,32:poke1835,32
  15. 144 poke1882,32:poke1883,32:poke1884,32:poke1885,32
  16. 146 poke1922,32:poke1923,32:poke1924,32:poke1925,32
  17. 150 poke 53269,15
  18. 160 w=peek(53279):y=peek(53278)
  19. 170 q=192
  20. 180 fort=0to800:next
  21. 200 sys(937)
  22. 210 q=q+1:if q=194thenq=192
  23. 214 poke2040,q
  24. 215 sys(937)
  25. 216 d=int(4*rnd(2)+1)
  26. 217 poke49522,d
  27. 218 sys(937)
  28. 220 sys49152
  29. 225 w=peek(53279)
  30. 226 if w=1 then 300
  31. 227 y=peek(53278)
  32. 228 if y=3then300
  33. 229 if y=5then 500
  34. 230 sys(937)
  35. 240 w=peek(53279):if w=1then 300
  36. 245 f=f+1:print""tab(33)f
  37. 250 goto 200
  38. 300 lv=lv-1:print""tab(33);lv
  39. 302 fort=0to10:poke53286,2:forg=0to50:nextg:poke53286,13
  40. 305 forg=0to50:nextg:nextt
  41. 310 poke54290,128:poke54272,75:poke54277,0:poke54278,240
  42. 312 poke54286,12:poke54287,5
  43. 314 poke54296,207:poke54276,21
  44. 320 forl=0to15:poke54273,peek(54299)and224
  45. 322 fort=0to100:next:next:poke54276,0
  46. 324 fort=0to500:next
  47. 325 if lv=0then 328
  48. 326 gosub 1034
  49. 327 goto 110
  50. 328 poke53269,0:print"[147]"
  51. 330 print"sorry, the spider got you."
  52. 332 print:print:print tab(15)"score ";f
  53. 340 goto 600
  54. 500 z=54272
  55. 502 restore
  56. 504 forl=0to24:pokez+l,0:next
  57. 506 poke z+3,8:poke z+5,41:pokez+6,89:poke z+14,117:pokez+18,16
  58. 508 poke z+24,143
  59. 510 readfr,dr
  60. 512 if fr=0 then 540
  61. 514 poke z+4,65
  62. 516 for t=1todr*2
  63. 518 fq=fr+peek(z+27)/2
  64. 520 hf=int(fq/256):lf=fqand255
  65. 522 pokez+0,lf:pokez+1,hf
  66. 524 next
  67. 526 poke z+4,64
  68. 528 goto 510
  69. 540 for l=0to24:pokez+l,0:next
  70. 542 f=f+250:print""tab(33)f
  71. 550 gosub 1034
  72. 552 goto 110
  73. 600 print:print tab(10)"play again  y or n"
  74. 610 poke198,0:wait198,1:geta$
  75. 622 if a$="y" then 640
  76. 630 ifa$<>"n"then610
  77. 635 goto60000
  78. 640 f=0:lv=5
  79. 644 gosub 1034
  80. 660 goto 110
  81. 1000 print"[147]"chr$(142):poke53281,0:poke53280,0:poke53248+29,0
  82. 1001 print"[159]please wait one moment...."
  83. 1002 print"uses joystick port 1."
  84. 1003 read fr,dr:if fr=0 then 1005
  85. 1004 goto 1003
  86. 1005 rem    read ml scroll data
  87. 1006 forx=49152to49528:read a:pokex,a:next
  88. 1008 poke49523,2:poke49524,36:poke49525,5:poke 49526,21
  89. 1010 rem    read ml joystick data
  90. 1012 forx=828to949:reada:pokex,a:next
  91. 1014 rem    read smith sprite data 1
  92. 1016 for x=12288to12350:reada:pokex,a:next
  93. 1018 rem    read smith sprite data 2
  94. 1020 forx=12352to12414:reada:pokex,a:next
  95. 1022 rem    read spider sprite data
  96. 1024 forx=12416to12478:reada:pokex,a:next
  97. 1026 rem    read michigan sprite data
  98. 1028 forx=12480to12542:reada:pokex,a:next
  99. 1030 rem    read save me sprite data
  100. 1032 forx=12544to12606:read a:pokex,a:next
  101. 1034 rem    prepare sprites
  102. 1036 poke2041,194:poke2042,195:poke2043,196:p=192:poke2040,p
  103. 1038 poke53285,10:poke53286,13:poke53287,8:poke53288,14:poke53289,7
  104. 1040 poke53290,3
  105. 1042 poke53248,170:poke53249,210:         poke53251,135:poke 53252,170
  106. 1043 poke53250,168
  107. 1044 poke53253,62:poke53254,196:poke53255,52
  108. 1046 poke53276,7
  109. 1047 poke53264,0
  110. 1048 return
  111. 1050 print"[147]":print""tab(12)"spider trap"
  112. 1052 rm=30:poke54273,15:poke54277,16:poke54278,240
  113. 1054 poke54287,rm:poke54296,31:poke54276,21
  114. 1056 rm=rm-1:if rm=10 then 1060
  115. 1057 fort=0to100:next
  116. 1058 goto1054
  117. 1060 fori=0to24:poke54272+i,0:next
  118. 1061 w=peek(53279):y=peek(53278)
  119. 1062 return
  120. 1090 rem    music data
  121. 1092 data 4817,2,5103,2,5407,2,8583,4,5407,2,8583,4
  122. 1094 data 5407,4,8583,12,9634,2,10207,2,10814,2,8583,2
  123. 1096 data 9634,4,10814,2,8583,2,9634,4,8583,12,0,0
  124. 1100 rem    ml scroll data
  125. 1102 data 174,114,193,224,3,144,3,76,117,192,188,114,193,140,121,193,174
  126. 1104 data 118,193,232,202,32,30,193,172,121,193,173,119,193,201,2,208,10
  127. 1106 data 169,32,72,173,33,208,72,76,50,192,177,90,72,177,92,72,204
  128. 1108 data 116,193,240,20,200,177,90,72,177,92,136,145,92,104,145,90,200
  129. 1110 data 204,116,193,208,238,240,18,136,177,90,72,177,92,200,145,92,104
  130. 1112 data 145,90,136,204,115,193,208,238,173,119,193,201,0,208,5,104,104
  131. 1114 data 76,111,192,104,145,92,104,145,90,236,117,193,208,160,96,172,116
  132. 1116 data 193,200,189,114,193,170,32,30,193,173,120,193,201,2,208,19,136
  133. 1118 data 169,32,153,122,193,173,33,208,153,162,193,204,115,193,208,239,240
  134. 1120 data 16,136,177,90,153,122,193,177,92,153,162,193,204,115,193,208,240
  135. 1122 data 236,117,193,240,37,202,32,30,193,172,116,193,200,136,177,90,72
  136. 1124 data 177,92,32,48,193,145,93,104,145,90,32,56,193,204,115,193,208
  137. 1126 data 234,236,117,193,208,221,240,46,202,206,118,193,232,32,30,193,172
  138. 1128 data 116,193,200,136,32,48,193,177,90,72,177,92,32,56,193,145,92,104
  139. 1130 data 145,90,204,115,193,208,234,236,118,193,208,221,238,118,193,232
  140. 1132 data 32,30,193,173,120,193,201,0,240,20,172,115,193,136,200,185,162
  141. 1134 data 193,145,92,185,122,193,145,90,204,116,193,208,240,96,189,89,193
  142. 1136 data 133,91,24,105,212,133,93,189,64,193,133,90,133,92,96,72,152
  143. 1138 data 24,105,40,168,104,96,72,152,56,233,40,168,104,96,0,40,80
  144. 1140 data 120,160,200,240,24,64,104,144,184,224,8,48,88,128,168,208,248
  145. 1142 data 32,72,112,152,192,4,4,4,4,4,4,4,5,5,5,5,5
  146. 1144 data 5,6,6,6,6,6,6,6,7,7,7,7,7,3,0,4,0,4,1,1
  147. 1150 rem    ml joystick data
  148. 1152 data 173,1,220,74,176,3,206,1,208,74,176,3,238,1,208,74,176,42,173
  149. 1154 data 0,208,208,31,173,16,208,41,1,208,16,173,16,208,9,1,141,16,208
  150. 1156 data 169,80,141,0,208,96,234,234,173,16,208,41,254,141,16,208,206
  151. 1158 data 0,208,96,234,234,74,176,32,238,0,208,240,30,169,80,205,0,208
  152. 1160 data 208,20,173,16,208,41,1,240,13,173,16,208,41,254,141,16,208,169
  153. 1162 data 0,141,0,208,96,234,234,173,16,208,9,1,141,16,208,96,234,234
  154. 1164 data 32,60,3,32,60,3,32,60,3,32,60,3,96
  155. 1170 rem    smith sprite data1
  156. 1172 data 0,0,0,0,60,0,4,255,0,4,235,0,4,20,0,4,20,0,5,255,80,5,255,80
  157. 1174 data 0,255,16,0,60,16,0,60,16,0,60,16,0,40,0,0,60,0,0,60,0,0
  158. 1176 data 60,0,0,56,0,0,48,0,0,48,0,0,48,0,0,32,0
  159. 1180 rem    smith sprite data 2
  160. 1182 data 0,0,0,0,60,0,0,255,16,0,235,16,0,20,16,0,20,16,5,255,80,5,255,80
  161. 1184 data 4,255,0,4,60,0,4,60,0,4,60,0,0,40,0,0,60,0,0,60,0,0,60,0
  162. 1186 data 0,44,0,0,12,0,0,12,0,0,12,0,0,12,0
  163. 1190 rem    spider sprite data
  164. 1192 data 0,0,0,0,0,0,64,0,1,80,0,5,68,0,17,65,0,65,0,170,0
  165. 1194 data 0,170,0,170,130,170,128,170,2,128,170,2,131,40,194,12,40,48
  166. 1196 data 48,40,12,48,0,12,48,0,12,48,0,12,0,0,0,0,0,0,0,0,0,0,0,0
  167. 1200 rem    michigan sprite data
  168. 1202 data 0,10,0,0,42,0,0,37,0,0,37,0,0,37,0,0,164,0,0,4,0,5,255,212
  169. 1204 data 5,255,212,0,255,192,0,63,0,0,63,0,0,63,0,0,63,0,0,42,0
  170. 1206 data 0,51,0,0,51,0,0,51,0,0,51,0,0,51,0,0,34,0
  171. 1210 rem    save me sprite data
  172. 1212 data 0,0,0,0,0,0,28,228,156,16,164,144,28,228,152,4,163,16,28,163,28
  173. 1214 data 0,0,0,0,0,0,0,0,0,32,159,24,49,144,24,42,144,24,36,156,24
  174. 1216 data 36,144,24,32,144,24,32,144,0,32,144,0,32,159,24,0,0,0,0,0,0
  175. 60000 rem connect to ls
  176. 60010 print"[147]reconnecting...":load"hello connect",8
  177.